PC World Komputer 1998 July & August/Pcwk78a98.iso/Sharewar/Organise/_SETUP.1/Epoch Organiser 3.0.exe/0/RCDATA/TSHOPPINGFORM/TSHOPPINGFORM.txt

Text File | 1998-01-25 | 48KB | 1,991 lines

object ShoppingForm: TShoppingForm
  Left = 65
  Top = 39
  Width = 528
  Height = 392
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Shopping List Manager..'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 3
    Top = 0
    Width = 516
    Height = 2
  end
  object GroupBox1: TGroupBox
    Left = 3
    Top = 2
    Width = 517
    Height = 299
    Caption = 'List Details'
    Color = clBtnFace
    Ctl3D = True
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 0
    object Label1: TLabel
      Left = 65
      Top = 24
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 223
      Top = 24
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 279
      Top = 24
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 361
      Top = 24
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 65
      Top = 49
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 223
      Top = 49
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 279
      Top = 49
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 361
      Top = 49
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 65
      Top = 74
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 223
      Top = 74
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 279
      Top = 74
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 361
      Top = 74
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 65
      Top = 99
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 223
      Top = 99
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 279
      Top = 99
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 361
      Top = 99
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 65
      Top = 124
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 223
      Top = 124
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 279
      Top = 124
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 361
      Top = 124
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 65
      Top = 149
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 223
      Top = 149
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 279
      Top = 149
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label24: TLabel
      Left = 361
      Top = 149
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label25: TLabel
      Left = 65
      Top = 174
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label26: TLabel
      Left = 223
      Top = 174
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label27: TLabel
      Left = 279
      Top = 174
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label28: TLabel
      Left = 361
      Top = 174
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label29: TLabel
      Left = 65
      Top = 199
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label30: TLabel
      Left = 223
      Top = 199
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label31: TLabel
      Left = 279
      Top = 199
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label32: TLabel
      Left = 361
      Top = 199
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label33: TLabel
      Left = 65
      Top = 225
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label34: TLabel
      Left = 223
      Top = 225
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label35: TLabel
      Left = 279
      Top = 225
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label36: TLabel
      Left = 361
      Top = 225
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label37: TLabel
      Left = 65
      Top = 250
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label38: TLabel
      Left = 223
      Top = 250
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label39: TLabel
      Left = 279
      Top = 250
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label40: TLabel
      Left = 361
      Top = 250
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label41: TLabel
      Left = 65
      Top = 276
      Width = 11
      Height = 13
      Caption = 'Of'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label42: TLabel
      Left = 223
      Top = 276
      Width = 10
      Height = 13
      Caption = 'At'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label43: TLabel
      Left = 279
      Top = 276
      Width = 6
      Height = 13
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label44: TLabel
      Left = 361
      Top = 276
      Width = 40
      Height = 13
      Caption = 'So Far ='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object o1: TCheckBox
      Left = 8
      Top = 21
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = o1Click
    end
    object q1: TEdit
      Left = 24
      Top = 20
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 1
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d1: TEdit
      Left = 82
      Top = 20
      Width = 137
      Height = 21
      TabOrder = 2
      OnChange = d1Change
    end
    object a1: TEdit
      Left = 237
      Top = 20
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 3
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v1: TPanel
      Left = 290
      Top = 19
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 35
    end
    object t1: TPanel
      Left = 405
      Top = 19
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 36
    end
    object o2: TCheckBox
      Tag = 1
      Left = 8
      Top = 46
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o2'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 37
      OnClick = o1Click
    end
    object q2: TEdit
      Tag = 1
      Left = 24
      Top = 45
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 4
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d2: TEdit
      Tag = 1
      Left = 82
      Top = 45
      Width = 137
      Height = 21
      TabOrder = 5
      OnChange = d1Change
    end
    object a2: TEdit
      Tag = 1
      Left = 237
      Top = 45
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 6
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v2: TPanel
      Left = 290
      Top = 44
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 38
    end
    object t2: TPanel
      Left = 405
      Top = 44
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 39
    end
    object o3: TCheckBox
      Tag = 2
      Left = 8
      Top = 71
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o3'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 40
      OnClick = o1Click
    end
    object q3: TEdit
      Tag = 2
      Left = 24
      Top = 70
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 7
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d3: TEdit
      Tag = 2
      Left = 82
      Top = 70
      Width = 137
      Height = 21
      TabOrder = 8
      OnChange = d1Change
    end
    object a3: TEdit
      Tag = 2
      Left = 237
      Top = 70
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 9
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v3: TPanel
      Left = 290
      Top = 69
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 41
    end
    object t3: TPanel
      Left = 405
      Top = 69
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 42
    end
    object o4: TCheckBox
      Tag = 3
      Left = 8
      Top = 96
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o4'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 43
      OnClick = o1Click
    end
    object q4: TEdit
      Tag = 3
      Left = 24
      Top = 95
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 10
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d4: TEdit
      Tag = 3
      Left = 82
      Top = 95
      Width = 137
      Height = 21
      TabOrder = 11
      OnChange = d1Change
    end
    object a4: TEdit
      Tag = 3
      Left = 237
      Top = 95
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 12
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v4: TPanel
      Left = 290
      Top = 94
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 44
    end
    object t4: TPanel
      Left = 405
      Top = 94
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 45
    end
    object o5: TCheckBox
      Tag = 4
      Left = 8
      Top = 121
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o5'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 46
      OnClick = o1Click
    end
    object q5: TEdit
      Tag = 4
      Left = 24
      Top = 120
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 13
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d5: TEdit
      Tag = 4
      Left = 82
      Top = 120
      Width = 137
      Height = 21
      TabOrder = 14
      OnChange = d1Change
    end
    object a5: TEdit
      Tag = 4
      Left = 237
      Top = 120
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 15
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v5: TPanel
      Left = 290
      Top = 119
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 47
    end
    object t5: TPanel
      Left = 405
      Top = 119
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 48
    end
    object o6: TCheckBox
      Tag = 5
      Left = 8
      Top = 146
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o6'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 49
      OnClick = o1Click
    end
    object q6: TEdit
      Tag = 5
      Left = 24
      Top = 145
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 16
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d6: TEdit
      Tag = 5
      Left = 82
      Top = 145
      Width = 137
      Height = 21
      TabOrder = 17
      OnChange = d1Change
    end
    object a6: TEdit
      Tag = 5
      Left = 237
      Top = 145
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 18
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v6: TPanel
      Left = 290
      Top = 144
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 50
    end
    object t6: TPanel
      Left = 405
      Top = 144
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 51
    end
    object o7: TCheckBox
      Tag = 6
      Left = 8
      Top = 171
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o7'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 52
      OnClick = o1Click
    end
    object q7: TEdit
      Tag = 6
      Left = 24
      Top = 170
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 19
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d7: TEdit
      Tag = 6
      Left = 82
      Top = 170
      Width = 137
      Height = 21
      TabOrder = 20
      OnChange = d1Change
    end
    object a7: TEdit
      Tag = 6
      Left = 237
      Top = 170
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 21
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v7: TPanel
      Left = 290
      Top = 169
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 53
    end
    object t7: TPanel
      Left = 405
      Top = 169
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 54
    end
    object o8: TCheckBox
      Tag = 7
      Left = 8
      Top = 196
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o8'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 55
      OnClick = o1Click
    end
    object q8: TEdit
      Tag = 7
      Left = 24
      Top = 195
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 22
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d8: TEdit
      Tag = 7
      Left = 82
      Top = 195
      Width = 137
      Height = 21
      TabOrder = 23
      OnChange = d1Change
    end
    object a8: TEdit
      Tag = 7
      Left = 237
      Top = 195
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 24
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v8: TPanel
      Left = 290
      Top = 194
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 56
    end
    object t8: TPanel
      Left = 405
      Top = 194
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 57
    end
    object o9: TCheckBox
      Tag = 8
      Left = 8
      Top = 222
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o9'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 58
      OnClick = o1Click
    end
    object q9: TEdit
      Tag = 8
      Left = 24
      Top = 221
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 25
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d9: TEdit
      Tag = 8
      Left = 82
      Top = 221
      Width = 137
      Height = 21
      TabOrder = 26
      OnChange = d1Change
    end
    object a9: TEdit
      Tag = 8
      Left = 237
      Top = 221
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 27
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v9: TPanel
      Left = 290
      Top = 220
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 59
    end
    object t9: TPanel
      Left = 405
      Top = 220
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 60
    end
    object o10: TCheckBox
      Tag = 9
      Left = 8
      Top = 247
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o10'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 61
      OnClick = o1Click
    end
    object q10: TEdit
      Tag = 9
      Left = 24
      Top = 246
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 28
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d10: TEdit
      Tag = 9
      Left = 82
      Top = 246
      Width = 137
      Height = 21
      TabOrder = 29
      OnChange = d1Change
    end
    object a10: TEdit
      Tag = 9
      Left = 237
      Top = 246
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 30
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v10: TPanel
      Left = 290
      Top = 245
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 62
    end
    object t10: TPanel
      Left = 405
      Top = 245
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 63
    end
    object o11: TCheckBox
      Tag = 10
      Left = 8
      Top = 273
      Width = 15
      Height = 17
      Hint = 'Ignore These Items'
      TabStop = False
      Caption = 'o11'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 64
      OnClick = o1Click
    end
    object q11: TEdit
      Tag = 10
      Left = 24
      Top = 272
      Width = 37
      Height = 21
      MaxLength = 7
      TabOrder = 31
      OnChange = q1Change
      OnExit = q1Exit
    end
    object d11: TEdit
      Tag = 10
      Left = 82
      Top = 272
      Width = 137
      Height = 21
      TabOrder = 32
      OnChange = d1Change
    end
    object a11: TEdit
      Tag = 10
      Left = 237
      Top = 272
      Width = 37
      Height = 21
      MaxLength = 10
      TabOrder = 33
      OnChange = a1Change
      OnExit = q1Exit
    end
    object v11: TPanel
      Left = 290
      Top = 271
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 65
    end
    object t11: TPanel
      Left = 405
      Top = 271
      Width = 67
      Height = 22
      Alignment = taRightJustify
      BorderStyle = bsSingle
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 66
    end
    object ScrollBar: TScrollBar
      Left = 496
      Top = 19
      Width = 16
      Height = 273
      Kind = sbVertical
      TabOrder = 34
      OnChange = ScrollBarChange
    end
    object Button1: TButton
      Left = 476
      Top = 23
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 67
      OnClick = Button1Click
    end
    object Button2: TButton
      Tag = 1
      Left = 476
      Top = 48
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 68
      OnClick = Button1Click
    end
    object Button3: TButton
      Tag = 2
      Left = 476
      Top = 73
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 69
      OnClick = Button1Click
    end
    object Button4: TButton
      Tag = 3
      Left = 476
      Top = 98
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 70
      OnClick = Button1Click
    end
    object Button5: TButton
      Tag = 4
      Left = 476
      Top = 123
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 71
      OnClick = Button1Click
    end
    object Button6: TButton
      Tag = 5
      Left = 476
      Top = 148
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 72
      OnClick = Button1Click
    end
    object Button7: TButton
      Tag = 6
      Left = 476
      Top = 173
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 73
      OnClick = Button1Click
    end
    object Button8: TButton
      Tag = 7
      Left = 476
      Top = 198
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 74
      OnClick = Button1Click
    end
    object Button9: TButton
      Tag = 8
      Left = 476
      Top = 224
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 75
      OnClick = Button1Click
    end
    object Button10: TButton
      Tag = 9
      Left = 476
      Top = 249
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 76
      OnClick = Button1Click
    end
    object Button11: TButton
      Tag = 10
      Left = 476
      Top = 275
      Width = 14
      Height = 14
      Hint = 'Line Options'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 77
      OnClick = Button1Click
    end
  end
  object Panel23: TPanel
    Left = 4
    Top = 320
    Width = 516
    Height = 23
    BorderStyle = bsSingle
    Color = clTeal
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object Panel24: TPanel
      Left = -1
      Top = -1
      Width = 13
      Height = 23
      BorderStyle = bsSingle
      TabOrder = 0
    end
    object Panel25: TPanel
      Left = 502
      Top = -1
      Width = 13
      Height = 23
      BorderStyle = bsSingle
      TabOrder = 1
    end
    object Loadbtn: TBitBtn
      Left = 12
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Load A Shopping List'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = Load1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
        07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
        0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object Savebtn: TBitBtn
      Left = 40
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Save'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = Save1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
    end
    object SaveAsbtn: TBitBtn
      Left = 68
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Save File As'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = SaveAs1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
        3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
        B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
        33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
        000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
        033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
        BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
        33B33733333773333373B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object Newbtn: TBitBtn
      Left = 96
      Top = 0
      Width = 28
      Height = 22
      Hint = 'New'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = New1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object Previousbtn: TBitBtn
      Left = 127
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Previous File List'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = FromListClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500055555500
        00005777FFFFFF77777750B077000003333057F77777777F555750B070888803
        B3B057F7F75FFF7F555700B07700000B3B3077F7F577777F555750B07777770B
        B3B057F7F555557F555750B07777770BBB3057F7FFFFFF7F555750B00000000B
        BBB057F77777777F555750B05F5F5F0BBBB057F7F7F7F77F555750B05F5F5F0B
        BBB057F7F7F7F77F555750B05F5F5F0BBBB057F7F7F7F77F555750B07777770B
        BBB057F77777777F555750B05F5F5F0BBBB057F7F757577F5557500055555503
        BBB057775555557F555755555555550B3BB055555555557F5557555555555503
        B3B055555555557FFFF755555555550000005555555555777777}
      NumGlyphs = 2
    end
    object Cutbtn: TBitBtn
      Left = 159
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Cut List Entries'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = Cut1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333FF3333333333333003333333333333377F33333333333307
        733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
        000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
        777077777777777777773CCCCC00000000003777777777777777333330030FFF
        FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
        FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
        0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
        0F03333333337FFF7F7333333333000000333333333377777733}
      NumGlyphs = 2
    end
    object Copybtn: TBitBtn
      Left = 187
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Copy Address'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      OnClick = Cut1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
        7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
        99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
    end
    object Pastebtn: TBitBtn
      Left = 215
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Paste List Entries'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnClick = Paste1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
        FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
        FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
        FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
        0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
        9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
        9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
        99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
        93337777FF777777733370000000073333333777777773333333}
      NumGlyphs = 2
    end
    object Replacebtn: TBitBtn
      Left = 247
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Find & Replace'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnClick = FindReplace1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
        055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
        305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
        30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
        3055577777555557F7F555000555555999555577755555577755}
      NumGlyphs = 2
    end
    object Printbtn: TBitBtn
      Left = 279
      Top = 0
      Width = 28
      Height = 22
      Hint = 'Print This List'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnClick = Print1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object ListTab: TTabSet
    Left = 4
    Top = 299
    Width = 515
    Height = 21
    DitherBackground = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Tabs.Strings = (
      'General'
      'Meat'
      'Vegetables'
      'Fruit'
      'Cerials'
      'Dairy'
      'Frozen'
      'Delicatessan')
    TabIndex = 0
    OnChange = ListTabChange
  end
  object MainMenu1: TMainMenu
    Left = 287
    Top = 146
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = New1Click
      end
      object Load1: TMenuItem
        Caption = '&Load'
        Default = True
        ShortCut = 16460
        OnClick = Load1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = '&Save As'
        ShortCut = 16449
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object N2: TMenuItem
        Caption = 'Previous &File'
        object FromList: TMenuItem
          Caption = '&From List'
          OnClick = FromListClick
        end
        object N8: TMenuItem
          Caption = '-'
        end
        object PF1: TMenuItem
          Caption = 'a'
          OnClick = PF1Click
        end
        object PF2: TMenuItem
          Caption = 'b'
        end
        object PF3: TMenuItem
          Caption = 'c'
        end
        object PF4: TMenuItem
          Caption = 'd'
        end
        object PF5: TMenuItem
          Caption = 'e'
        end
      end
      object AutoLoad1: TMenuItem
        Caption = 'AutoLoad'
        Checked = True
        OnClick = AutoLoad1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print'
        OnClick = Print1Click
      end
      object SelectionPrint1: TMenuItem
        Caption = 'Selection P&rint'
        OnClick = SelectionPrint1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Edit34: TMenuItem
      Caption = '&Edit'
      object ChangePageNames1: TMenuItem
        Caption = '&Change Page Names'
        OnClick = ChangePageNames1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'Cut'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = 'Copy'
        ShortCut = 16451
        OnClick = Cut1Click
      end
      object Paste1: TMenuItem
        Caption = 'Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object SelectAll1: TMenuItem
        Caption = '&Select All'
        OnClick = SelectAll1Click
      end
      object DelselectAll1: TMenuItem
        Caption = '&Delselect All'
        OnClick = SelectAll1Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object FindReplace1: TMenuItem
        Caption = 'Find && &Replace'
        ShortCut = 16466
        OnClick = FindReplace1Click
      end
    end
    object Search1: TMenuItem
      Caption = '&Search'
      object Find1: TMenuItem
        Caption = '&Find'
        ShortCut = 16454
        OnClick = Find1Click
      end
      object FindNext1: TMenuItem
        Caption = 'Find &Next'
        ShortCut = 16474
        OnClick = Find1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&Tools'
      object Dictionary1: TMenuItem
        Caption = '&Dictionary'
        object Erase1: TMenuItem
          Caption = '&Kill'
          OnClick = Erase1Click
        end
        object Update1: TMenuItem
          Caption = '&Update'
          OnClick = Update1Click
        end
        object EditView1: TMenuItem
          Caption = '&Edit/View'
          OnClick = EditView1Click
        end
        object N10: TMenuItem
          Caption = '-'
        end
        object CopyFromList: TMenuItem
          Caption = '&Add From List'
          OnClick = Cut1Click
        end
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        OnClick = Contents1Click
      end
      object HowToRegister1: TMenuItem
        Caption = '&How To Register'
        OnClick = HowToRegister1Click
      end
      object TheShoppingList1: TMenuItem
        Caption = 'The &Shopping List'
        OnClick = TheShoppingList1Click
      end
    end
  end
  object LineOptionsPopUp: TPopupMenu
    AutoPopup = False
    Left = 330
    Top = 159
    object InsertLine1: TMenuItem
      Caption = '&Insert Line'
      OnClick = InsertLine1Click
    end
    object DeleteLine1: TMenuItem
      Caption = '&Delete Line'
      OnClick = DeleteLine1Click
    end
    object UndeleteLine1: TMenuItem
      Caption = '&Undelete Line'
      OnClick = UndeleteLine1Click
    end
    object EraseLine1: TMenuItem
      Caption = '&Erase Line'
      OnClick = DeleteLine1Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object AddToDictionary1: TMenuItem
      Caption = '&Add To Dictionary'
      OnClick = AddToDictionary1Click
    end
    object GetFromDictionary1: TMenuItem
      Caption = '&Get From Dictionary'
      OnClick = GetFromDictionary1Click
    end
  end
end